home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / hnet.lha / Install < prev    next >
Text File  |  1996-03-19  |  3KB  |  186 lines
  1.  
  2. (complete 0)
  3.  
  4. (set locale 0)
  5. (set app-name "HNet V1.0ß")
  6.  
  7. ; English strings
  8.  
  9. (if (= @language "english")
  10. (
  11.  
  12. (set #select-dir (cat "Select the directory where the HNet Directory will be created."))
  13. (set #copy (cat "Copying HNet"))
  14. (set #files (cat "Select Servers/Clients to install."))
  15. (set #copyhelp (cat "NChat - Network Chat program.\nStopNet - Needed to exit HNet.\nStrSnd - Send String. This program will display the string you enter on the other computer."))
  16. (set #libcopy (cat "Copying gtlayout.library to LIBS:"))
  17. (set #startup (cat "Some commands will be added to your \"s:user-startup\" file."))
  18.  
  19. ))
  20.  
  21. (if (= @language "svenska")
  22. (
  23.  
  24. (set #select-dir (cat "Välj en sökväg där katalogen HNet ska skapas."))
  25. (set #copy (cat "Kopierar HNet"))
  26. (set #files (cat "Välj Servers/Clients att installera.."))
  27. (set #copyhelp (cat "NChat - Network Chat program.\nStopNet - Nödvändingt för att avsluta HNet.\nStrSnd - Send String. Visar den textsträng du skriver in, på den andra datorn i nätverket."))
  28. (set #libcopy (cat "Kopierar gtlayout.library till LIBS:"))
  29. (set #startup (cat "Några kommandon kommer nu att läggas till i filen  \"s:user-startup\"."))
  30.  
  31. ))
  32.  
  33.  
  34. ; Installation
  35.  
  36. (if (< (/ (getversion) 65536) 37)
  37. (
  38.     (abort #bad-kick)
  39. ))
  40.  
  41. (set hntd "Ram:")
  42.  
  43. (set hntd
  44.     (askdir
  45.         (prompt #select-dir)
  46.         (help "")
  47.         (default "Sys:")
  48.         (newpath hntd)
  49.     )
  50. )
  51.  
  52. ; Copy files
  53.  
  54. (complete 10)
  55.  
  56. (set @default-dest hntd)
  57. (set hntp hntd)
  58. (set hntd (tackon hntd "HNet"))
  59. (set bin (tackon hntd "bin"))
  60. (set util (tackon hntd "util"))
  61.  
  62. (set fileopt
  63.     (askoptions
  64.         (prompt #files)
  65.         (choices "NChat" "StopNet" "StrSnd")
  66.         (default %111)
  67.         (help #copyhelp)
  68.     )
  69. )
  70.  
  71. (if (in fileopt 0)
  72.     (copyfiles
  73.         (prompt #copy)
  74.         (source "bin/nchat")
  75.         (help @copy-files-help)
  76.         (optional "askuser")
  77.         (dest hntd)
  78.     )
  79. )
  80.  
  81. (complete 20)
  82.  
  83. (copyfiles
  84.     (prompt #copy)
  85.     (source "bin/exec")
  86.     (help @copy-files-help)
  87.     (dest bin)
  88. )
  89.  
  90. (complete 30)
  91.  
  92. (copyfiles
  93.     (prompt #copy)
  94.     (source "bin/main")
  95.     (help @copy-files-help)
  96.     (dest bin)
  97. )
  98.  
  99. (complete 40)
  100.  
  101. (copyfiles
  102.     (prompt #copy)
  103.     (source "bin/startnet")
  104.     (help @copy-files-help)
  105.     (dest hntd)
  106. )
  107.  
  108. (complete 50)
  109.  
  110. (if (in fileopt 1)
  111.     (copyfiles
  112.         (prompt #copy)
  113.         (source "bin/stopnet")
  114.         (help @copy-files-help)
  115.         (dest hntd)
  116.     )
  117. )
  118.  
  119. (complete 60)
  120.  
  121. (if (in fileopt 2)
  122.     (copyfiles
  123.         (prompt #copy)
  124.         (source "bin/strsnd")
  125.         (help @copy-files-help)
  126.         (dest util)
  127.     )
  128. )
  129.  
  130. (complete 70)
  131.  
  132. (copyfiles
  133.     (prompt #copy)
  134.     (source "bin/echos")
  135.     (help @copy-files-help)
  136.     (dest util)
  137. )
  138.  
  139. (complete 75)
  140.  
  141. (copylib
  142.     (source    "Libs/gtlayout.library")
  143.     (dest "LIBS:")
  144.     (prompt "\n" #libcopy)
  145.     (help @copylib-help)
  146.     (confirm)
  147. )
  148.  
  149. (complete 85)
  150.  
  151. (copyfiles
  152.     (source "bin/bin.info")
  153.     (help @copy-files-help)
  154.     (dest hntd)
  155.     (newname "Util.info")
  156. )
  157.  
  158. (copyfiles
  159.     (source "bin/bin.info")
  160.     (help @copy-files-help)
  161.     (dest hntp)
  162.     (newname "HNet.info")
  163. )
  164.  
  165. ;(copyfiles
  166. ;    (source "bin/tool.info")
  167. ;    (help @copy-files-help)
  168. ;    (dest hntp)
  169. ;    (newname "HNet.info")
  170. ;)
  171.  
  172. (complete 90)
  173.  
  174. (startup "HNet"
  175.     (prompt #startup)
  176.     (help @startup-help)
  177.     (command "Assign >NIL: HNT: \"" hntd "\"\n")
  178.     (command "Path >NIL: HNT:Util HNT:Bin ADD\n")
  179.     (command "Execute >NIL: HNT:StartNet\n")
  180. )
  181.  
  182. (complete 99)
  183.  
  184. (exit)
  185.  
  186.